Softdisk for Windows 42/Softdisk for Windows 42.iso/QUARRY/QUARRY.EXE/QUARRY.dxr/00025_CHECKALLMOVEBLUE.ls

Text File | 1998-01-01 | 342 b | 15 lines

on CHECKALLMOVEBLUE
  global GRIDH, GRIDV, done
  set done to 1
  repeat with H = 1 to 140
    if getAt(GRIDV, H) = 2 then
      if getAt(GRIDV, H + 14) = 0 then
        set done to 0
      end if
      if (getAt(GRIDH, H) <> getAt(GRIDH, 14)) and (getAt(GRIDV, H + 1) = 0) then
        set done to 0
      end if
    end if
  end repeat
end